home *** CD-ROM | disk | FTP | other *** search
/ AGA Toolkit '97 / The AGA Toolkit '97.iso / text / misc / port / string / strlfcat.s < prev    next >
Encoding:
Text File  |  1996-09-07  |  241 b   |  19 lines
  1.  
  2.     XDEF    StrLFCat
  3.  
  4.     XREF    StrEnd
  5.  
  6. ; StrLFCat() - Adds a line-feed after a string pointed by A0.
  7.  
  8. ; Args:
  9. ; A0  Pointer to the string.
  10.  
  11. ; Returns:
  12. ; A0  Pointer to the ending null.
  13.  
  14. StrLFCat:
  15.     bsr    StrEnd
  16.     move.b    #10,(a0)+        ; LF
  17.     clr.b    (a0)
  18.     rts
  19.